(

←CHANGE-B(COMPOSE-D-R FILLIN1]
... FILLIN1 (APPEND &))
tty:

*↑ P
(GENL (ACTVE-D-R) WORTH (0) FILLIN1 (APPEND &))
*-1 -1 PP
  [PROGN (ARGS-ASA COMPOSE F1 F2)
         [SETQ RAN1 (LAST (CAR (GETB F1 (QUOTE D-R]
         (SETQ DOM1 (LDIFF (CAR (GETB F1 (QUOTE D-R)))
                           RAN1))
         [SETQ RAN2 (LAST (CAR (GETB F2 (QUOTE D-R]
         (SETQ DOM2 (LDIFF (CAR (GETB F2 (QUOTE D-R)))
                           RAN2))
         [SETQ DOM3 (AND (CDR DOM1)
                         (CDR (MIN2 (APPEND RAN2 RAN2)
                                    DOM1
                                    (QUOTE FRAC-INCLU]
         (SETQ GTEMP3 (APPLYB (QUOTE ANYB-INTERSECT)
                              (QUOTE ALGS]
*-1 P
(SETQ GTEMP3 (APPLYB & &))
*(: (APPEND DOM2 DOM3 RAN1]

*BK P
(SETQ DOM3 (AND & &))
*-1 -1 P
(CDR (MIN2 & DOM1 &))
*(1 CADR)

*MBD LIST
P
(LIST (CADR &))
*2 2 P
(MIN2 (APPEND RAN2 RAN2) DOM1 (QUOTE FRAC-INCLU))
*2
*(N RAN2 RAN2]

*P
(APPEND RAN2 RAN2 RAN2 RAN2)
*OK

COMPOSE-D-R, FILLIN1
FILLIN1
←(DEFINEQ (FRAC-INCLU (LAMBDA (B1 B2)(COND ((ISA B1 B2) 100)
((ISA B2 B1) 50) (T (* NOTICE HOW CRUDE THIS IS. IMPROVE IT!!) 0]
(FRAC-INCLU)
←
PP(FRAC-INCLU)

(FRAC-INCLU
  [LAMBDA (B1 B2)
    (COND
      ((ISA B1 B2)
        100)
      ((ISA B2 B1)
        50)
      (T   **COMMENT**  
         0])
(FRAC-INCLU)
←
NFUN((FRAC-INCLU))
 THERE ARE NOW 127 FUNCTIONS ON TOP4COMS
TOP4COMS
←
CONCEPTS
(COMPOSE-D-R ANYTHING ORD-OBJ-EXS ORD-OBJ ACTIVE ACTIVE-EXS ANYB ANYB-AN
**AS ANYB-ANYP ANYB-CHECK ANYB-CHECK1 ANYB-CHECK2
ANYB-D-R ANYB-DEFN ANYB-DEFN-NOT ANYB-DOMAIN ANYB-EXS ANYB-EXS-BDY ANYB-
**EXS-NOT ANYB-EXS-NOT-BDY ANYB-FILLIN 
ANYB-FILLIN1 ANYB-FILLIN2 ANYB-GENL ANYB-IN-DOM-OF ANYB-IN-RAN-OF ANYB-I
**NIT ANYB-INT ANYB-INT-NOT ANYB-INTU ANYB-INV
ANYB-RANGE ANYB-RESTRUC ANYB-SPEC ANYB-SUGG ANYB-UP ANYB-VIEW ANYB-WORTH
** BAG-STRUC BAG-STRUC-DELETE BAG-STRUC-INSERT
COMPOSE COMPOSE-D-R COMPOSE-EXS CONSTRUCTIVE FINAL FIRST LIST-STRUC LIST
**-STRUC-DELETE LIST-STRUC-INSERT MULT-STRUC
NONMULT-STRUC OBJ-EQUAL OBJECT OBJECT-EXS OPERATION ORD-PAIR OSET-STRUC 
**OSET-STRUC-DELETE OSET-STRUC-INSERT PREDICATE
REAR RELATION SET-STRUC SET-STRUC-DELETE SET-STRUC-DIFF SET-STRUC-INSERT
** SET-STRUC-INTERSECT STRUCTURE STRUCTURE-DELETE
STRUCTURE-DIFF STRUCTURE-EQUAL STRUCTURE-EXS STRUCTURE-EXS-BDY STRUCTURE
**-INSERT STRUCTURE-INTERSECT STRUCTURE-MEMB
UNORD-OBJ UNORD-OBJ-EXS)
←GETP(COMPOSE-D-R GENL)
(ACTVE-D-R)
←
PUT(COMPOSE-D-R GENL (ACTIVE-D-R))
(ACTIVE-D-R)
←
ACCEPT-B(ACTIVE-D-R ANYB-D-R]


edit

*P
(FROM-FILE CON4)
*OK
edit
*P
(GENL (ANYB-ANYP) WORTH (0) INIT (OSET))
*(2 (ANYB-D-R))

*LI 5
(5)

*P
(GENL (ANYB-D-R) WORTH (0))
*OK
THE NUMBER OF CONCEPTS IS NOW 80
ACTIVE-D-R
←INIT-C)
THE NUMBER OF CONCEPTS IS 80
NIL
←
INIT-MAC)
NIL
←
CLEANUP(CON4)
CON4... RUNNING AT 3461  LOAD AV. =   2.95, USED 0:03:23.9 IN 2:16:05
 RUNNING AT 261615  LOAD AV. =   3.42, USED 0:03:46.3 IN 2:17:00


SHOULD I FTP THE FILE CON4. OVER TO SAIL? (Y,N)...
Y


@FTP
SUMEX-AIM FTP User process 1.21.0
*SAIL
 Connection opened
 Assuming 36-bit connections.

*LOG AM,DBL 
*SEND CON4.;11 [Confirm]

 to remote-file CON4.
< SU-AI FTP Server  4.0 -- at 10-JUL-75  1651
< Password OK, login complete
< Store of CON4[AM,DBL] started correctly.
< Data transfer complete, from you to us

11869. bytes transferred, run time = 667. MS,
 Elapsed time = 70125. MS, Rate = 6093. Baud.

*QUIT
@
@QUIT


πππ
@
@QUIT



compiling <LENAT>CON4.;11
listing? No 
redefine? No 

ARG NOT ATOM
#161011

(OUTFILE broken)
:CLOSEF)
<LENAT>CON4.COM;11
:
↑C
@DIR

   <LENAT>
 CON4.  ;11,10
    .COM;11
 L  .   ;2
 LL .   ;2
 S  .   ;1
 SUBSYS.INCOMFILE;2;S
 TOP4.  ;13
    .COM;14
 UTIL4. ;7
    .COM;6
  11 FILES, 330 PAGES

@CON


←RECOMPILE(CON4)
listing? 
No 
redefine? No 

ARG NOT ATOM
#161011

(OUTFILE broken)
:RETURN NIL
OUTFILE = NIL

GC: 18
 RUNNING AT 22277  LOAD AV. =   4.80, USED 0:04:33.7 IN 2:22:50
 RUNNING AT 20166  LOAD AV. =   4.46, USED 0:04:35.0 IN 2:23:18
 RUNNING AT 23077  LOAD AV. =   4.26, USED 0:04:38.3 IN 2:24:06
1121, 3169 FREE WORDS
 RUNNING AT 16131  LOAD AV. =   4.11, USED 0:04:41.5 IN 2:24:37
 RUNNING AT 240561  LOAD AV. =   3.96, USED 0:04:53.2 IN 2:25:13
(LISPXPRINT (QUOTE CON4COMS) T T)
(RPAQQ CON4COMS ((FNS BAG CLASS FORMAT INIT-C OSET PAIR STRUC VECTOR) CO
**NCEPTS (VARS * CONCEPTS) FACETS (VARS * FACETS)
(FNS * FACETS) AUX-FACETS (VARS * AUX-FACETS) SUF-PARTS STRATEGY-PARTS X
**EQ-PARTS XS-PARTS OR-PARTS (COMS * (LIST (CONS
(QUOTE IFPROP) (CONS (QUOTE ALL) CONCEPTS)))) (COMS * (LIST (CONS (QUOTE
** IFPROP) (CONS (QUOTE ALL) FACETS)))) (COMS
* (LIST (CONS (QUOTE IFPROP) (CONS (QUOTE ALL) AUX-FACETS)))) (P (INIT-C
**)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE
DONTCOPY COMPILERVARS (ADDVARS (NLAMA VECTOR STRUC PAIR OSET FORMAT CLAS
**S BAG) (NLAML WORTH VIEW UP SUGG SPEC RESTRUC
RANGE INV INTU INT-NOT INT INIT IN-RAN-OF IN-DOM-OF GENL FILLIN2 FILLIN1
** FILLIN EXS-NOT-BDY EXS-NOT EXS-BDY EXS DOMAIN
DEFN-NOT DEFN D-R CHECK2 CHECK1 CHECK ANAS ALGS)))))
(RPAQQ CONCEPTS (ACTIVE-D-R COMPOSE-D-R ANYTHING ORD-OBJ-EXS ORD-OBJ ACT
**IVE ACTIVE-EXS ANYB ANYB-ANAS ANYB-ANYP 
ANYB-CHECK ANYB-CHECK1 ANYB-CHECK2 ANYB-D-R ANYB-DEFN ANYB-DEFN-NOT ANYB
**-DOMAIN ANYB-EXS ANYB-EXS-BDY ANYB-EXS-NOT
ANYB-EXS-NOT-BDY ANYB-FILLIN ANYB-FILLIN1 ANYB-FILLIN2 ANYB-GENL ANYB-IN
**-DOM-OF ANYB-IN-RAN-OF ANYB-INIT ANYB-INT
ANYB-INT-NOT ANYB-INTU ANYB-INV ANYB-RANGE ANYB-RESTRUC ANYB-SPEC ANYB-S
**UGG ANYB-UP ANYB-VIEW ANYB-WORTH BAG-STRUC
BAG-STRUC-DELETE BAG-STRUC-INSERT COMPOSE COMPOSE-D-R COMPOSE-EXS CONSTR
**UCTIVE FINAL FIRST LIST-STRUC LIST-STRUC-DELETE
LIST-STRUC-INSERT MULT-STRUC NONMULT-STRUC OBJ-EQUAL OBJECT OBJECT-EXS O
**PERATION ORD-PAIR OSET-STRUC OSET-STRUC-DELETE
OSET-STRUC-INSERT PREDICATE REAR RELATION SET-STRUC SET-STRUC-DELETE SET
**-STRUC-DIFF SET-STRUC-INSERT SET-STRUC-INTERSECT
STRUCTURE STRUCTURE-DELETE STRUCTURE-DIFF STRUCTURE-EQUAL STRUCTURE-EXS 
**STRUCTURE-EXS-BDY STRUCTURE-INSERT 
STRUCTURE-INTERSECT STRUCTURE-MEMB UNORD-OBJ UNORD-OBJ-EXS))
(RPAQQ ACTIVE-D-R (FROM-FILE CON4))
(RPAQQ COMPOSE-D-R (FROM-FILE CON4))
(RPAQQ ANYTHING (FROM-FILE CON4))
(RPAQQ ORD-OBJ-EXS (FROM-FILE CON4))
(RP

Close file before deleting:
CON4.COM

←CLOSEF)
<LENAT>CON4.;11
←
↑C
@DIR

   <LENAT>
 CON4.  ;11,10
    .COM;11
 L  .   ;2
 LL .   ;2
 S  .   ;1
 SUBSYS.INCOMFILE;2;S
 TOP4.  ;13
    .COM;14
 UTIL4. ;7
    .COM;6
  11 FILES, 330 PAGES

@CON
MAKEFILE(UTIL4)

πππππ*** SUMEX-AIM-TENEX GOING DOWN IN 60 MINUTES. ***
<LENAT>UTIL4.;8
←
MAKEFILE(TOP4)
 RUNNING AT 266743  LOAD AV. =   4.91, USED 0:05:07.2 IN 2:29:27
(APPLYB not printable)
<LENAT>TOP4.;14
←
SYSOUT(S)
<LENAT>S.;2
←
LOGOUT)
@
@DEL S
@EXPUNGE
@DIR

   <LENAT>
 CON4.  ;11,10
    .COM;11
 L  .   ;2
 LL .   ;2
 S  .   ;2
 TOP4.  ;14,13
    .COM;14
 UTIL4. ;8,7
    .COM;6
  12 FILES, 354 PAGES

@DEL CON4
@EXPUNGE
@LOGOUT
 LENAT OVER ALLOCATION BY 81 PAGES.